-- file: ch04/myMap.hs

myMap :: (a -> b) -> [a] -> [b]
myMap f (x : xs) = f x : myMap f xs
myMap _ [] = []